home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993 April: Penguin on DISC / ADC Developer CD (1993-04) (''Penguin On DISC'')_iso / Dev.CD Apr 93.iso / Utilities / MPW Interfaces 7.1 Beta / PInterfaces / ConnectionTools.p < prev    next >
Encoding:
Text File  |  1992-08-28  |  2.5 KB  |  132 lines  |  [TEXT/MPS ]
  1.  
  2. {
  3. Created: Wednesday, September 11, 1991 at 1:48 PM
  4.  ConnectionTools.p
  5.  Pascal Interface to the Macintosh Libraries
  6.  
  7.   Copyright Apple Computer, Inc. 1988-1991
  8.   All rights reserved
  9. }
  10.  
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13. {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16. {$IFC NOT UsingIncludes}
  17.  UNIT ConnectionTools;
  18.  INTERFACE
  19. {$ENDC}
  20.  
  21. {$IFC UNDEFINED UsingConnectionTools}
  22. {$SETC UsingConnectionTools := 1}
  23.  
  24. {$I+}
  25. {$SETC ConnectionToolsIncludes := UsingIncludes}
  26. {$SETC UsingIncludes := 1}
  27. {$IFC UNDEFINED UsingDialogs}
  28. {$I $$Shell(PInterfaces)Dialogs.p}
  29. {$ENDC}
  30. {$IFC UNDEFINED UsingConnections}
  31. {$I $$Shell(PInterfaces)Connections.p}
  32. {$ENDC}
  33. {$SETC UsingIncludes := ConnectionToolsIncludes}
  34.  
  35. CONST
  36.  
  37. { messages for DefProc }
  38. cmInitMsg = 0;
  39. cmDisposeMsg = 1;
  40. cmSuspendMsg = 2;
  41. cmResumeMsg = 3;
  42. cmMenuMsg = 4;
  43. cmEventMsg = 5;
  44. cmActivateMsg = 6;
  45. cmDeactivateMsg = 7;
  46.  
  47. cmIdleMsg = 50;
  48. cmResetMsg = 51;
  49. cmAbortMsg = 52;
  50.  
  51. cmReadMsg = 100;
  52. cmWriteMsg = 101;
  53. cmStatusMsg = 102;
  54. cmListenMsg = 103;
  55. cmAcceptMsg = 104;
  56. cmCloseMsg = 105;
  57. cmOpenMsg = 106;
  58. cmBreakMsg = 107;
  59. cmIOKillMsg = 108;
  60. cmEnvironsMsg = 109;
  61.  
  62. { new connection tool messages for ctb 1.1 }
  63. cmNewIOPBMsg = 110;
  64. cmDisposeIOPBMsg = 111;
  65. cmGetErrorStringMsg = 112;
  66. cmPBReadMsg = 113;
  67. cmPBWriteMsg = 114;
  68. cmPBIOKillMsg = 115;
  69.  
  70. {    messages for validate DefProc    }
  71. cmValidateMsg = 0;
  72. cmDefaultMsg = 1;
  73.  
  74. {    messages for Setup DefProc    }
  75. cmSpreflightMsg = 0;
  76. cmSsetupMsg = 1;
  77. cmSitemMsg = 2;
  78. cmSfilterMsg = 3;
  79. cmScleanupMsg = 4;
  80.  
  81. {    messages for scripting defProc    }
  82. cmMgetMsg = 0;
  83. cmMsetMsg = 1;
  84.  
  85. {    messages for localization defProc    }
  86. cmL2English = 0;
  87. cmL2Intl = 1;
  88.  
  89. {    private data constants }
  90. cdefType = 'cdef';    { main connection definition procedure    }
  91. cvalType = 'cval';    { validation definition procedure    }
  92. csetType = 'cset';    { connection setup definition procedure    }
  93. clocType = 'cloc';    { connection configuration localization defProc    }
  94. cscrType = 'cscr';    { connection scripting defProc interfaces    }
  95.  
  96. cbndType = 'cbnd';    { bundle type for connection    }
  97. cverType = 'vers';
  98.  
  99. TYPE
  100. CMDataBufferPtr = ^CMDataBuffer;
  101. CMDataBuffer = RECORD
  102.  thePtr: Ptr;
  103.  count: LONGINT;
  104.  channel: CMChannel;
  105.  flags: CMFlags;
  106.  END;
  107.  
  108. CMCompletorPtr = ^CMCompletorRecord;
  109. CMCompletorRecord = RECORD
  110.  async: BOOLEAN;
  111.  completionRoutine: ProcPtr;
  112.  END;
  113.  
  114. { Private Data Structure }
  115.  
  116. CMSetupPtr = ^CMSetupStruct;
  117. CMSetupStruct = RECORD
  118.  theDialog: DialogPtr;
  119.  count: INTEGER;
  120.  theConfig: Ptr;
  121.  procID: INTEGER;    { procID of the tool }
  122.  END;
  123.  
  124.  
  125.  
  126. {$ENDC} { UsingConnectionTools }
  127.  
  128. {$IFC NOT UsingIncludes}
  129.  END.
  130. {$ENDC}
  131.  
  132.